home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / PASWIZ20 / EQUIPMEN.PAS < prev    next >
Pascal/Delphi Source File  |  1994-11-04  |  2KB  |  87 lines
  1. {   +----------------------------------------------------------------------+
  2.     |                                                                      |
  3.     |        PasWiz  Copyright (c) 1990-1994  Thomas G. Hanlin III         |
  4.     |                                                                      |
  5.     +----------------------------------------------------------------------+
  6.  
  7.  
  8.  
  9. Equipment:
  10.  
  11.    This unit provides information about the computing environment from both
  12.    hardware and software perspectives.
  13.  
  14. }
  15.  
  16.  
  17.  
  18. UNIT Equipment;
  19.  
  20.  
  21.  
  22. INTERFACE
  23.  
  24.  
  25.  
  26. FUNCTION AllExtMem: LONGINT;
  27. FUNCTION CDROM: INTEGER;
  28. FUNCTION CommPorts: INTEGER;
  29. FUNCTION Floppies: INTEGER;
  30. FUNCTION GetExtM: LONGINT;
  31. FUNCTION EnhKbd: BOOLEAN;
  32. FUNCTION Processor: INTEGER;
  33. FUNCTION PrtPorts: INTEGER;
  34.  
  35. PROCEDURE FloppyType (VAR Drive1, Drive2: INTEGER);
  36. PROCEDURE Get4DOSv (VAR MajorV, MinorV: INTEGER);
  37. PROCEDURE GetDisplay (VAR Adapter: INTEGER; VAR Mono: BOOLEAN);
  38. PROCEDURE GetDOSv (VAR MajorV, MinorV: INTEGER);
  39. PROCEDURE GetEMSm (VAR TotalPages, FreePages: INTEGER);
  40. PROCEDURE GetEMSv (VAR MajorV, MinorV: INTEGER);
  41. PROCEDURE GetXMSm (VAR LargestFree, TotalFree: LONGINT);
  42. PROCEDURE GetXMSv (VAR MajorV, MinorV: INTEGER);
  43. PROCEDURE WinCheck (VAR MajorV, MinorV: INTEGER);
  44.  
  45.  
  46.  
  47. { --------------------------------------------------------------------------- }
  48.  
  49.  
  50.  
  51. IMPLEMENTATION
  52.  
  53.  
  54.  
  55. {$F+}
  56.  
  57. { the routines are actually in assembly language }
  58.  
  59. FUNCTION AllExtMem; external;
  60. FUNCTION CDROM; external;
  61. FUNCTION CommPorts; external;
  62. FUNCTION Floppies; external;
  63. FUNCTION GetExtM; external;
  64. FUNCTION EnhKbd; external;
  65. FUNCTION Processor; external;
  66. FUNCTION PrtPorts; external;
  67.  
  68. PROCEDURE FloppyType; external;
  69. PROCEDURE Get4DOSv; external;
  70. PROCEDURE GetDisplay; external;
  71. PROCEDURE GetDOSv; external;
  72. PROCEDURE GetEMSm; external;
  73. PROCEDURE GetEMSv; external;
  74. PROCEDURE GetXMSm; external;
  75. PROCEDURE GetXMSv; external;
  76. PROCEDURE WinCheck; external;
  77.  
  78.  
  79.  
  80. {$L EQUIP}
  81.  
  82.  
  83.  
  84. { ----------------------- initialization code --------------------------- }
  85. BEGIN
  86. END.
  87.